home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -readerstuff- / pete_sullivan / palomafe / installpfe < prev    next >
Encoding:
Text File  |  1999-04-21  |  6.7 KB  |  290 lines
  1. ;**************************************************
  2. ;
  3. ;$VER: PalomaFE V2.0 (Sept.1998)
  4. ;
  5. ; Title:
  6. ;    PalomaFE Installer
  7. ; 
  8. ; Description:
  9. ;    The Commodore Installer Script for PalomaFE
  10. ;
  11. ; Installer script by Pete Sullivan
  12. ;
  13. ;**************************************************
  14.  
  15. (set true 1)
  16. (set false 0)
  17. (set quote "\"")
  18. (set nothing "")
  19. (set WB2 (< 2293760 (getversion "exec.library" (resident)))) ; true if under 2.0
  20.  
  21. (set PalomaFE_dir (getassign "PalomaFE"))
  22. (set c_dir (getassign "C"))
  23. (set libs_dir (getassign "LIBS"))
  24. (set fonts_dir (getassign "FONTS"))
  25. (set devs_dir (getassign "DEVS"))
  26. (set s_dir (getassign "S"))
  27. (set wbstartup_dir (getassign "SYS:WBSTARTUP"))
  28.  
  29. (set Src_root "")
  30. (set Src_c "c/")
  31. (set Src_s "s/")
  32. (set Src_libs "libs/")
  33. (set Src_devs "devs/")
  34. (set Src_rexx "rexx/")
  35. (set Src_DATA "DATA/")
  36. (set Src_Sullitech "/")
  37. (set Src_docs "Docs/")
  38. (set Src_fonts "Fonts/")
  39. (set Src_WBStartup "WBStartup/")
  40. (set Src_AmiFTP "AmiFTP/")
  41. (set Temp_dir "ram:t/")
  42.  
  43. (set MSG_CopyDevs1 "\n\nCopying needed device ")
  44. (set MSG_CopyDevs2 " to DEVS:")
  45.  
  46. ; start with not updated software!
  47.  
  48. (set is_update false)
  49.  
  50. (if  (<> PalomaFE_dir nothing)
  51.      (if  (askbool
  52.                (prompt "\n\n\nAn earlier version of PalomaFE already exists in"
  53.                " your drawer named: \n\n"
  54.                quote PalomaFE_dir quote
  55.                "\n\nDo you want the update installed over it?")
  56.                (help
  57.                "\n\n\nThe installer has determined that you already have a "
  58.                "some version of the PalomaFE software installed "
  59.                "on your system.  If this is wrong or you want the update "
  60.                "installed elsewhere, select 'NO', otherwise select 'YES'."
  61.                )
  62.                (default 1)
  63.           )
  64.                (set is_update true) 
  65.  
  66. ;else ask where to put software
  67.  
  68.                (
  69.                (set PalomaFE_dir
  70.                (askdir
  71.                     (prompt "Where would you like the updated software "
  72.                     "installed?\n"
  73.                     "The directory 'PalomaFE' will be created automatically.\n")
  74.                     (help @askdir-help)
  75.                     (default @default-dest)
  76.                )
  77.                )
  78.  
  79.                (set PalomaFE_dir
  80.                (tackon PalomaFE_dir "PalomaFE")
  81.                )
  82.  
  83.                (makedir PalomaFE_dir
  84.                (infos)
  85.                )
  86.           )
  87.      )
  88. )
  89.  
  90. ; PalomaFE: was not previously assigned, so ask where to make it
  91. (if  (= PalomaFE_dir nothing)
  92.           (
  93.           (set PalomaFE_dir
  94.                (askdir
  95.                     (prompt "Where would you like the software installed?\n"
  96.                     "The directory 'PalomaFE' will be created automatically.\n")
  97.                     (help @askdir-help)
  98.                     (default @default-dest)
  99.                )
  100.           )
  101.  
  102.           (set PalomaFE_dir
  103.           (tackon PalomaFE_dir "PalomaFE")
  104.           )
  105.  
  106.  
  107.           (makedir PalomaFE_dir
  108.           (infos)
  109.           )
  110.      )
  111. )
  112.  
  113. (set @default-dest PalomaFE_dir)
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.    
  130. (complete 10)
  131.  
  132. (working omp "...Please Wait...")
  133.  
  134. (copyfiles
  135.      (prompt "Select file(s) to be copied into your WBStartup: directory:")
  136.      (help "\n\n\n\n\nThis will copy the Paloma TV Control Center facility to your WBStartup: "
  137.      "directory.\n\n\n\n\n\n\n\n"
  138.      @copyfiles-help)
  139.      (source Src_root)
  140.      (dest "SYS:WBStartup")
  141.      (pattern "(FED|FED.info)")
  142.      
  143. )
  144.    
  145. (complete 20)
  146.  
  147. (working omp "...Please Wait...")
  148.  
  149. ;copy Cando.library
  150.  
  151. (copylib
  152.    (source (tackon Src_libs "cando.library"))
  153.    (dest "LIBS:")
  154.    (prompt "Copying needed 'Cando.library' to LIBS:")
  155.    (help @copylib-help)
  156.    
  157. )
  158.  
  159. (complete 30)
  160.  
  161.  
  162.  
  163. ; Copy SulliTech
  164.  
  165. (working omp "...Please Wait...")
  166.    
  167. (set PalomaFE_dir
  168.      (copyfiles
  169.           (prompt "These files will be copied to the PalomaFE: directory:")
  170.           (help "\n\n\n\n\n\nThis will copy Paloma's main "
  171.           "programs.\n\n\n\n\n\n\n"
  172.           @copyfiles-help)
  173.           (source Src_root)
  174.           (dest PalomaFE_dir)
  175.           (pattern "(#?FED|FED.info|OPT|OPT2|Sullot|ReadMe|PalomaTV|PalomaTV.info|PalomaTV.config|QuickStart|QuickStart.info#?)")
  176.           
  177. )
  178.  
  179.  
  180. )
  181.  
  182.  
  183. (complete 40)
  184.  
  185. ;create Documentation directory
  186.  
  187. (set Docs_dir
  188. (cat PalomaFE_dir)
  189. )
  190. (set Docs_dir
  191. (tackon Docs_dir "Docs")
  192. )
  193.  
  194. (makedir Docs_dir
  195. (infos)
  196. )
  197.  
  198. (working omp "...Please Wait...")
  199.  
  200. (copyfiles
  201.      (prompt "Select file(s) to be copied to the PalomaFE:Docs directory:")
  202.      (help "\n\n\n\n\nThis will copy the documentation for "
  203.      "PalomaFE.  This documentation should reside in your "
  204.      "'PalomaFE:Docs' directory.\n\n\n\n\n\n"
  205.      @copyfiles-help)
  206.      (source Src_Docs)
  207.      (dest Docs_dir)
  208.      (pattern "#?.docs#?")
  209.      
  210.  
  211. )
  212.  
  213. (complete 50)
  214.  
  215. ;create Rexx directory
  216.  
  217. (set Rexx_dir
  218. (cat PalomaFE_dir)
  219. )
  220. (set Rexx_dir
  221. (tackon Rexx_dir "Rexx")
  222. )
  223.  
  224. (makedir Rexx_dir
  225. (infos)
  226. )
  227.  
  228. (working omp "...Please Wait...")
  229.  
  230. (copyfiles
  231.      (prompt "These file(s) must be copied into the Rexx directory:")
  232.      (help "\n\n\n\nRexxMast MUST be running on your system for "
  233.      "PalomaFE to use.  These AREXX scripts should reside in your "
  234.      "'PalomaFE:Rexx' directory.\n\n\n\n\n\n"
  235.      @copyfiles-help)
  236.      (source Src_Rexx)
  237.      (dest Rexx_dir)
  238.      (pattern "#?.rexx#?")
  239.      
  240. )
  241.  
  242. (complete 60)
  243.  
  244. ; add assigns to User-Startup if this is not an update
  245.  
  246. (if  (= is_update false)
  247.      (if  (askbool
  248.                (prompt "\nIn order for PalomaFE to work correctly, "
  249.                "Somewhere in the USER-STARTUP must be an assigment"
  250.                " for 'PalomaFE:'\n\n"
  251.                "These lines can be added for you automatically by this "
  252.                "installer.  Would you like these lines added?\n\n")
  253.                (help @askbool-help)
  254.                )
  255.  
  256.                (
  257.                     (if (= @pretend 0)
  258.                     (
  259.                         (
  260.                         (if  (not  (exists "s:user-startup"))
  261.                              (textfile
  262.                              (dest "s:user-startup")
  263.                              (append ";user-startup \n\n")
  264.                          )
  265.                     )
  266.                     (textfile
  267.                     (dest "ram:user-startup")
  268.                     (include "s:user-startup")
  269.                     (append ";BEGIN PalomaFE assignment\n")
  270.                     (append "assign PalomaFE: " PalomaFE_dir)
  271.                     (append "\n;END PalomaFE assignment\n")
  272.                     )
  273.                     (rename "s:user-startup" "s:user-startup.old")
  274.                     (copyfiles
  275.                     (help @copyfiles-help)
  276.                     (source "ram:user-startup")
  277.                     (dest "s:")
  278.                     )
  279.                     (delete "ram:user-startup")
  280.                )
  281.           )
  282.           )
  283.      )
  284.      )
  285. )
  286.  
  287. (complete 70)
  288.  
  289. (exit)
  290.